home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-04 / easydr2.zip / AUTOBBS.BI < prev    next >
Text File  |  1991-11-15  |  1KB  |  42 lines
  1.  
  2. ' Easy-Door V2.0b Automatic Multi-BBS detection
  3. ' ---------------------------------------------
  4.  
  5. ' Depending on the filename, the corresponding BBS type is used.
  6. ' Please read the DoorDef.BI to see the supported BBS type.
  7.  
  8.  
  9. Ok = 0                          ' Succes flag when reading DOOR file
  10.  
  11. FileName$ = UCASE$(COMMAND$)
  12.  
  13. IF FileName$ = "" THEN
  14.         FullName$ = "Unknown"
  15.         Location$ = "Nowhere"
  16.         Baud$ = ""
  17.         Com$ = "0"
  18.         AnsiFlag$ = "1"
  19.         TimeRemaining$ = "180"
  20. ELSE
  21.         CALL Exist(FileName$ + CHR$(0), Ex)
  22.  
  23.         IF Ex THEN
  24.        
  25.                 IF INSTR(FileName$, "DORINFO") THEN BBSType = 1
  26.                 IF FileName$ = "DOOR.SYS" THEN BBSType = 2
  27.                 IF INSTR(FileName$, "CALLINF") THEN BBSType = 4
  28.                 IF FileName$ = "INFO.BBS" THEN BBSType = 3
  29.                 IF INSTR(FileName$, "SF") THEN BBSType = 5
  30.                 IF FileName$ = "CHAIN.TXT" THEN BBSType = 6
  31.                 ReadDoorFile FileName$, BBSType, FullName$, Location$, Baud$, Com$, AnsiFlag$, TimeRemaining$
  32.         ELSE
  33.                 CLS
  34.                 PRINT
  35.                 PRINT "ERROR: "; FileName$; " not found or BBS type not recognized"
  36.                 PRINT
  37.                 END
  38.         END IF
  39.  
  40. END IF
  41.  
  42.